home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 18 / CU Amiga Magazine's Super CD-ROM 18 (1997)(EMAP Images)(GB)[!][issue 1998-01].iso / CUCD / Programming / AmigaE / Src / OOmodules / library / reqtools / test.e
Encoding:
Text File  |  1995-06-25  |  695 b   |  29 lines
  1. MODULE 'oomodules/library/reqtools',
  2.       'reqtools','libraries/reqtools'
  3.  
  4. PROC main() HANDLE
  5. DEF req:PTR TO reqtools
  6.  
  7.   NEW req.new(["name",'reqtools.library',"vers",37])
  8.  
  9.   req.ez('Nice to see ya!','Ah.|So what?',0,0,[RTEZ_REQTITLE,'Just a test',RT_REQPOS,REQPOS_POINTER])
  10.   req.string('Just enter a string:')
  11.   WriteF('\s\n',req.stringbuf)
  12.   req.string('Just enter a string:')
  13.   WriteF('\s\n',req.stringbuf)
  14.  
  15.   req.long('just enter a number:')
  16.   WriteF('\d\n', req.number)
  17.  
  18.   req.palette('just choose a colour:')
  19.   WriteF('\d\n', req.number)
  20.  
  21.   req.file('FILE?')
  22.   WriteF('\s\n', req.filebuf)
  23.   WriteF('\s\n', req.dirbuf)
  24.  
  25.  
  26. EXCEPT
  27.   WriteF('no lib, sorry (base=\d).\n',reqtoolsbase)
  28. ENDPROC
  29.